home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / prog / pas_all.zip / TI115.ASC < prev    next >
Text File  |  1991-09-11  |  815b  |  67 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.   PRODUCT : TURBO PASCAL                               NUMBER : 115
  10.   VERSION : ALL
  11.        OS : CP/M-80
  12.      DATE : April 7, 1986                                PAGE : 1/1
  13.     TITLE : KAYPRO - EVER-SPINNING DISK DRIVE
  14.  
  15.  
  16.  
  17.  
  18.   Place this procedure into your program and call it when you would
  19.   like your disk drives to stop spinning.
  20.  
  21.  
  22.   { This works for Kaypro 2, 4, 1984 or later }
  23.  
  24.   procedure MotorOff;
  25.   const
  26.     system = $14;                              {Kaypro System port}
  27.  
  28.   begin
  29.     port[system] :=port[system] and $EF;    {Turn off motor}
  30.   end;
  31.  
  32.  
  33.   { This works for the original Kaypro 2 and 4 }
  34.  
  35.   procedure MotorOff;
  36.   const
  37.     system = $1C;
  38.   begin
  39.     port[system] := port[system] or $140;
  40.   end;
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.